home *** CD-ROM | disk | FTP | other *** search
/ PsL Monthly 1993 December / PSL Monthly Shareware CD-ROM (December 1993).iso / prgmming / win / general / cdbw.exe / DBMGR.TXT < prev    next >
Text File  |  1991-09-12  |  6KB  |  64 lines
  1. '========== DBMGR.TXT ==========
  2.  
  3. 'dbtalk.dll function declarations
  4. Declare Function DbClose Lib "dbtalk.dll" (ByVal hDb As Integer) As Long
  5. Declare Function DbFileGetLockStatus Lib "dbtalk.dll" (ByVal hDb As Integer, ByVal szRecName As String, ByVal lpLockStatus As Integer) As Long
  6. Declare Function DbFileLock Lib "dbtalk.dll" (ByVal hDb As Integer, ByVal szRecName As String) As Long
  7. Declare Function DbFileUnlock Lib "dbtalk.dll" (ByVal hDb As Integer, ByVal szRecName As String) As Long
  8. Declare Function DbFlush Lib "dbtalk.dll" (ByVal hDb As Integer) As Long
  9. Declare Function DbGetNbrClients Lib "dbtalk.dll" (ByVal hDb As Integer, ByVal lpNbrClients As Integer) As Long
  10. Declare Function DbOpen Lib "dbtalk.dll" (ByVal hParentWnd As Integer, ByVal szDbDir As String, ByVal szDbName As String, ByVal bHide As Integer, lphDb As Integer) As Long
  11. Declare Function DbRecordDelete Lib "dbtalk.dll" (ByVal hDb As Integer, ByVal szRecName As String) As Long
  12. Declare Function DbRecordFindFirst Lib "dbtalk.dll" (ByVal hDb As Integer, ByVal szRecName As String, ByVal szFldName As String) As Long
  13. Declare Function DbRecordFindLast Lib "dbtalk.dll" (ByVal hDb As Integer, ByVal szRecName As String, ByVal szFldName As String) As Long
  14. Declare Function DbRecordFindNext Lib "dbtalk.dll" (ByVal hDb As Integer, ByVal szRecName As String, ByVal szFldName As String) As Long
  15. Declare Function DbRecordFindPrev Lib "dbtalk.dll" (ByVal hDb As Integer, ByVal szRecName As String, ByVal szFldName As String) As Long
  16. Declare Function DbSetAdd Lib "dbtalk.dll" (ByVal hDb As Integer, ByVal szOwnerName As String, ByVal szMemberName As String) As Long
  17. Declare Function DbSetDelete Lib "dbtalk.dll" (ByVal hDb As Integer, ByVal szOwnerName As String, ByVal szMemberName As String) As Long
  18. Declare Function DbSetFindFirst Lib "dbtalk.dll" (ByVal hDb As Integer, ByVal szOwnerName As String, ByVal szMemberName As String) As Long
  19. Declare Function DbSetFindLast Lib "dbtalk.dll" (ByVal hDb As Integer, ByVal szOwnerName As String, ByVal szMemberName As String) As Long
  20. Declare Function DbSetFindNext Lib "dbtalk.dll" (ByVal hDb As Integer, ByVal szOwnerName As String, ByVal szMemberName As String) As Long
  21. Declare Function DbSetFindPrev Lib "dbtalk.dll" (ByVal hDb As Integer, ByVal szOwnerName As String, ByVal szMemberName As String) As Long
  22. Declare Function XDbRecordAdd Lib "dbtalk.dll" (ByVal hDb As Integer, ByVal szRecName As String, lpData As Any, ByVal nDataLen As Integer) As Long
  23. Declare Function XDbRecordFindByKey Lib "dbtalk.dll" (ByVal hDb As Integer, ByVal szRecName As String, ByVal szFldName As String, lpKey As Any, ByVal nKeyLen As Integer) As Long
  24. Declare Function XDbRecordGetByKey Lib "dbtalk.dll" (ByVal hDb As Integer, ByVal szRecName As String, ByVal szFldName As String, lpTarget As Any, ByVal nTargetLen As Integer, lpKey As Any, ByVal nKeyLen As Integer) As Long
  25. Declare Function XDbRecordGetCurrency Lib "dbtalk.dll" (ByVal hDb As Integer, ByVal szRecName As String, lpTarget As Any, ByVal nTargetLen As Integer) As Long
  26. Declare Function XDbRecordGetCurrent Lib "dbtalk.dll" (ByVal hDb As Integer, ByVal szRecName As String, lpTarget As Any, ByVal nTargetLen As Integer) As Long
  27. Declare Function XDbRecordGetFirst Lib "dbtalk.dll" (ByVal hDb As Integer, ByVal szRecName As String, ByVal szFldName As String, lpTarget As Any, ByVal nTargetLen As Integer) As Long
  28. Declare Function XDbRecordGetLast Lib "dbtalk.dll" (ByVal hDb As Integer, ByVal szRecName As String, ByVal szFldName As String, lpTarget As Any, ByVal nTargetLen As Integer) As Long
  29. Declare Function XDbRecordGetNext Lib "dbtalk.dll" (ByVal hDb As Integer, ByVal szRecName As String, ByVal szFldName As String, lpTarget As Any, ByVal nTargetLen As Integer) As Long
  30. Declare Function XDbRecordGetPrev Lib "dbtalk.dll" (ByVal hDb As Integer, ByVal szRecName As String, ByVal szFldName As String, lpTarget As Any, ByVal nTargetLen As Integer) As Long
  31. Declare Function XDbRecordUpdate Lib "dbtalk.dll" (ByVal hDb As Integer, ByVal szRecName As String, lpData As Any, ByVal nDataLen As Integer) As Long
  32. Declare Function XDbRecordUpdCurrency Lib "dbtalk.dll" (ByVal hDb As Integer, ByVal szRecName As String, lpData As Any, ByVal nDataLen As Integer) As Long
  33. Declare Function XDbSetGetFirst Lib "dbtalk.dll" (ByVal hDb As Integer, ByVal szOwnerName As String, ByVal szMemberName As String, lpTarget As Any, ByVal nTargetLen As Integer) As Long
  34. Declare Function XDbSetGetLast Lib "dbtalk.dll" (ByVal hDb As Integer, ByVal szOwnerName As String, ByVal szMemberName As String, lpTarget As Any, ByVal nTargetLen As Integer) As Long
  35. Declare Function XDbSetGetNext Lib "dbtalk.dll" (ByVal hDb As Integer, ByVal szOwnerName As String, ByVal szMemberName As String, lpTarget As Any, ByVal nTargetLen As Integer) As Long
  36. Declare Function XDbSetGetOwner Lib "dbtalk.dll" (ByVal hDb As Integer, ByVal szOwnerName As String, ByVal szMemberName As String, lpTarget As Any, ByVal nTargetLen As Integer) As Long
  37. Declare Function XDbSetGetPrev Lib "dbtalk.dll" (ByVal hDb As Integer, ByVal szOwnerName As String, ByVal szMemberName As String, lpTarget As Any, ByVal nTargetLen As Integer) As Long
  38.  
  39. 'CDB Error Defines
  40. Global Const E_TESTDRIVE = -5
  41. Global Const E_WINALLOC = -4
  42. Global Const E_LOADMODULE = -3
  43. Global Const E_INVALIDCASE = -2
  44. Global Const E_DOS = -1
  45. Global Const E_NORECNAME = 1
  46. Global Const E_NOFLDNAME = 2
  47. Global Const E_INVALIDSET = 3
  48. Global Const E_NOTAKEY = 4
  49. Global Const E_NOTFOUND = 5
  50. Global Const E_NEXTGUESS = 6
  51. Global Const E_NOCURRENT = 7
  52. Global Const E_NONEXT = 8
  53. Global Const E_NOPREV = 9
  54. Global Const E_NOMEMBER = 10
  55. Global Const E_NOOWNER = 11
  56. Global Const E_FILELOCKED = 12
  57. Global Const E_HASMEMBER = 13
  58. Global Const E_HASOWNER = 14
  59.  
  60. 'Currency index
  61. Type currency_index
  62.     filler As String * 36       'Contents of structure not used by
  63.                                 '  applications programmer
  64. End Type